home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / misc / peaucellier.T < prev   
Encoding:
Text File  |  1994-08-02  |  1.2 KB  |  33 lines
  1. .geometry "version 0.1";
  2. v1 = .free(-0.788043, 0.078804, .invisible, "1");
  3. v2 = .free(0.92663, 0.078804, .invisible, "2");
  4. l1 = .l.vv(v1, v2, .invisible);
  5. v3 = .free(-0.002717, -0.858696, .invisible, "3");
  6. c1 = .c.vv(v1, v3, .invisible);
  7. v6 = .vonl(l1, -0.292907, 0.078804, .invisible, .cross);
  8. c3 = .c.vv(v6, v1);
  9. v7 = .vonc(c3, 0.193029, 0.173809, .red, .cross);
  10. v8 = .free(0.75, -0.125, .invisible, "5");
  11. v9 = .free(0.752717, -0.453804, .invisible, "6");
  12. ll = .len.vv(v8, v9);
  13. cc1 = .c.vlen(v7, ll, .invisible);
  14. v10 = .v.cc(cc1, c1, 1, .plus);
  15. v11 = .v.cc(cc1, c1, 2, .plus);
  16. c2 = .c.vv(v11, v7, .invisible);
  17. c4 = .c.vv(v10, v7, .invisible);
  18. v13 = .v.cc(c2, c4, 1, .smear, .plus);
  19. l2 = .l.vv(v1, v10);
  20. l3 = .l.vv(v1, v11);
  21. l4 = .l.vv(v11, v7);
  22. l5 = .l.vv(v7, v10);
  23. l6 = .l.vv(v10, v13);
  24. l7 = .l.vv(v13, v11);
  25. .text("Peaucellier's Linkage");
  26. .text("");
  27. .text("The white line segments represent rigid bars.  As the red");
  28. .text("point moves, the point opposite sweeps out the inverse of its");
  29. .text("path.  In this example, the red point is constrained to a circle");
  30. .text("passing through the center of inversion, so the inverse path is");
  31. .text("a straight line.  Move the red point and smear out the inverse");
  32. .text("line.");
  33.